home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio 2000 #2 / Ham Radio 2000 - Volume 2.iso / HAMV2 / MISC / HCAL-27 / IMPARES.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1997-01-28  |  2.1 KB  |  88 lines
  1. 10  'IMPARES -Impedance of Parallel-Resonant Circuits- 04 JUL 95 rev. 27 SEP 96
  2. 20  CLS:KEY OFF
  3. 30  IF EX$=""THEN EX$="EXIT"
  4. 40  COLOR 7,0,1
  5. 50  U$="###,###.###
  6. 60  UL$=STRING$(80,205)
  7. 70  E$=STRING$(80,32)
  8. 80  PI=3.14159
  9. 90  '
  10. 100  '.....start
  11. 110  CLS
  12. 120  COLOR 15,2
  13. 130  PRINT " IMPEDANCE of PARALLEL-RESONANT CIRCUITS";
  14. 140  PRINT TAB(57);"by George Murphy VE3ERP ";
  15. 150  COLOR 1,0:PRINT STRING$(80,223);
  16. 160  COLOR 7,0
  17. 170  GOSUB 630
  18. 180  PRINT
  19. 190  PRINT UL$;
  20. 200  COLOR 0,7:LOCATE CSRLIN,22
  21. 210  PRINT " Press 1 to continue or 0 to EXIT....."
  22. 220  COLOR 7,0
  23. 230  Z$=INKEY$:IF Z$="" THEN 230
  24. 240  IF Z$="0"THEN CLS:RUN EX$
  25. 250  IF Z$="1"THEN 270
  26. 260  GOTO 230
  27. 270  LOCATE CSRLIN-1:PRINT E$;:LOCATE CSRLIN-1
  28. 280  GOTO 350
  29. 290  '
  30. 300  '.....format print line
  31. 310  LOCATE CSRLIN-1:PRINT SPC(7);
  32. 320  LOCATE CSRLIN,47:PRINT STRING$(7,".");USING U$;Z;
  33. 330  RETURN
  34. 340  '
  35. 350  '.....data input
  36. 360  INPUT " ENTER: Capacitance C............................(pF)";C
  37. 370  IF C=0 THEN LOCATE CSRLIN-1:PRINT E$;:LOCATE CSRLIN-1:GOTO 360
  38. 380  Z=C:GOSUB 300:PRINT " pF"
  39. 390  '
  40. 400  INPUT " ENTER: Inductance L.............................(>H)";L
  41. 410  IF L=0 THEN LOCATE CSRLIN-1:PRINT E$;:LOCATE CSRLIN-1:GOTO 400
  42. 420  Z=L:GOSUB 300:PRINT " >H"
  43. 430  '
  44. 440  INPUT " ENTER: Resistance R...........................(ohms)";R
  45. 450  IF R=0 THEN LOCATE CSRLIN-1:PRINT E$;:LOCATE CSRLIN-1:GOTO 440
  46. 460  Z=R:GOSUB 300:PRINT " -"
  47. 470  '
  48. 480  F=10^3/(2*PI*SQR(L*C))
  49. 490  XL=2*PI*F*L
  50. 500  Q=XL/R
  51. 510  Z=XL^2/R
  52. 520  PRINT "        Reactance (Inductive and Capacitive).........";USING U$;XL;
  53. 530  PRINT " -"
  54. 540  PRINT "        Frequency F..................................";USING U$;F;
  55. 550  PRINT " MHz"
  56. 560  PRINT "        Q of Circuit.................................";USING U$;Q;
  57. 570  PRINT "        Impedance....................................";USING U$;Z;
  58. 580  PRINT " -"
  59. 590  PRINT UL$;
  60. 600  GOSUB 750
  61. 610  GOTO 100   'start
  62. 620  '
  63. 630  '.....diagram
  64. 640  T=29
  65. 650  COLOR 0,7
  66. 660  LOCATE CSRLIN,T:PRINT TAB(T);"                L       "
  67. 670  LOCATE CSRLIN,T:PRINT TAB(T);"     VARPTRSOUNDSOUNDSOUNDSOUNDBSAVESOUNDSOUNDSOUNDORORORORORSOUNDSOUNDSOUNDCOLOR "
  68. 680  LOCATE CSRLIN,T:PRINT TAB(T);" E(in)    CALL           CALL "
  69. 690  LOCATE CSRLIN,T:PRINT TAB(T);"   @     THENINSTRTHEN C        CALL "
  70. 700  LOCATE CSRLIN,T:PRINT TAB(T);" F MHz    CALL     R     CALL "
  71. 710  LOCATE CSRLIN,T:PRINT TAB(T);"     CLSSOUNDSOUNDSOUNDSOUNDMOTORSOUNDSOUNDSOUND/\/\/SOUNDSOUNDSOUND' "
  72. 720  COLOR 7,0
  73. 730  RETURN
  74. 740  '
  75. 750  'HARDCOPY
  76. 760  GOSUB 870:LOCATE 25,2:COLOR 14,6
  77. 770  PRINT " Press 1 to print screen, 2 to print screen & ";
  78. 780  PRINT "advance paper, or 3 to continue.";:COLOR 7,0
  79. 790  Z$=INKEY$:IF Z$="3"THEN GOSUB 870:RETURN
  80. 800  IF Z$="1"OR Z$="2"THEN GOSUB 870:GOTO 820
  81. 810  GOTO 790
  82. 820  FOR QX=1 TO 24:FOR QY=1 TO 80
  83. 830  LPRINT CHR$(SCREEN(QX,QY));
  84. 840  NEXT QY:NEXT QX
  85. 850  IF Z$="2"THEN LPRINT CHR$(12)
  86. 860  GOTO 760
  87. 870  LOCATE 25,1:PRINT STRING$(80,32);:RETURN
  88.